      MODULE employv2kp_c2
      USE employv2kp_c1
      CONTAINS
      INTEGER FUNCTION SSCSZ(CSNO,ERRMES)
      INTEGER CSNO
      CHARACTER*(*) ERRMES
      CHARACTER*10 SUBNAM
      PARAMETER(SUBNAM='SSCSZ')
      IF(CSNO.EQ.1) THEN
       SSCSZ=SIZE(C00001)
      ELSE IF(CSNO.EQ.2) THEN
       SSCSZ=SIZE(C00002)
      ELSE IF(CSNO.EQ.3) THEN
       SSCSZ=SIZE(C00003)
      ELSE IF(CSNO.EQ.4) THEN
       SSCSZ=SIZE(C00004)
      ELSE IF(CSNO.EQ.5) THEN
       SSCSZ=SIZE(C00005)
      ELSE IF(CSNO.EQ.6) THEN
       SSCSZ=SIZE(C00006)
      ELSE IF(CSNO.EQ.7) THEN
       SSCSZ=SIZE(C00007)
      ELSE IF(CSNO.EQ.8) THEN
       SSCSZ=SIZE(C00008)
      ELSE IF(CSNO.EQ.9) THEN
       SSCSZ=SIZE(C00009)
      ELSE IF(CSNO.EQ.10) THEN
       SSCSZ=SIZE(C00010)
      ELSE IF(CSNO.EQ.11) THEN
       SSCSZ=SIZE(C00011)
      ELSE IF(CSNO.EQ.12) THEN
       SSCSZ=SIZE(C00012)
      ELSE IF(CSNO.EQ.13) THEN
       SSCSZ=SIZE(C00013)
      ELSE IF(CSNO.EQ.14) THEN
       SSCSZ=SIZE(C00014)
      ELSE IF(CSNO.EQ.15) THEN
       SSCSZ=SIZE(C00015)
      ELSE IF(CSNO.EQ.16) THEN
       SSCSZ=SIZE(C00016)
      ELSE IF(CSNO.EQ.17) THEN
       SSCSZ=SIZE(C00017)
      ELSE IF(CSNO.EQ.18) THEN
       SSCSZ=SIZE(C00018)
      ELSE IF(CSNO.EQ.19) THEN
       SSCSZ=SIZE(C00019)
      ELSE IF(CSNO.EQ.20) THEN
       SSCSZ=SIZE(C00020)
      ELSE IF(CSNO.EQ.21) THEN
       SSCSZ=SIZE(C00021)
      ELSE IF(CSNO.EQ.22) THEN
       SSCSZ=SIZE(C00022)
      ELSE IF(CSNO.EQ.23) THEN
       SSCSZ=SIZE(C00023)
      ELSE IF(CSNO.EQ.24) THEN
       SSCSZ=SIZE(C00024)
      ELSE IF(CSNO.EQ.25) THEN
       SSCSZ=SIZE(C00025)
      ELSE IF(CSNO.EQ.26) THEN
       SSCSZ=SIZE(C00026)
      ELSE IF(CSNO.EQ.27) THEN
       SSCSZ=SIZE(C00027)
      ELSE IF(CSNO.EQ.28) THEN
       SSCSZ=SIZE(C00028)
      ELSE IF(CSNO.EQ.29) THEN
       SSCSZ=SIZE(C00029)
      ELSE IF(CSNO.EQ.30) THEN
       SSCSZ=SIZE(C00030)
      ELSE IF(CSNO.EQ.31) THEN
       SSCSZ=SIZE(C00031)
      ELSE IF(CSNO.EQ.32) THEN
       SSCSZ=SIZE(C00032)
      ELSE IF(CSNO.EQ.33) THEN
       SSCSZ=SIZE(C00033)
      ELSE IF(CSNO.EQ.34) THEN
       SSCSZ=SIZE(C00034)
      ELSE IF(CSNO.EQ.35) THEN
       SSCSZ=SIZE(C00035)
      ELSE IF(CSNO.EQ.36) THEN
       SSCSZ=SIZE(C00036)
      ELSE IF(CSNO.EQ.37) THEN
       SSCSZ=SIZE(C00037)
      ELSE IF(CSNO.EQ.38) THEN
       SSCSZ=SIZE(C00038)
      ELSE IF(CSNO.EQ.39) THEN
       SSCSZ=SIZE(C00039)
      ELSE IF(CSNO.EQ.40) THEN
       SSCSZ=SIZE(C00040)
      ELSE IF(CSNO.EQ.41) THEN
       SSCSZ=SIZE(C00041)
      ELSE IF(CSNO.EQ.42) THEN
       SSCSZ=SIZE(C00042)
      ELSE IF(CSNO.EQ.43) THEN
       SSCSZ=SIZE(C00043)
      ELSE IF(CSNO.EQ.44) THEN
       SSCSZ=SIZE(C00044)
      ELSE IF(CSNO.EQ.45) THEN
       SSCSZ=SIZE(C00045)
      ELSE IF(CSNO.EQ.46) THEN
       SSCSZ=SIZE(C00046)
      ELSE IF(CSNO.EQ.47) THEN
       SSCSZ=SIZE(C00047)
      ELSE IF(CSNO.EQ.48) THEN
       SSCSZ=SIZE(C00048)
      ELSE IF(CSNO.EQ.49) THEN
       SSCSZ=SIZE(C00049)
      ELSE IF(CSNO.EQ.50) THEN
       SSCSZ=SIZE(C00050)
      ELSE IF(CSNO.EQ.51) THEN
       SSCSZ=SIZE(C00051)
      ELSE IF(CSNO.EQ.52) THEN
       SSCSZ=SIZE(C00052)
      ELSE IF(CSNO.EQ.53) THEN
       SSCSZ=SIZE(C00053)
      ELSE IF(CSNO.EQ.54) THEN
       SSCSZ=SIZE(C00054)
      ELSE IF(CSNO.EQ.55) THEN
       SSCSZ=SIZE(C00055)
      ELSE IF(CSNO.EQ.56) THEN
       SSCSZ=SIZE(C00056)
      ELSE IF(CSNO.EQ.57) THEN
       SSCSZ=SIZE(C00057)
      ELSE IF(CSNO.EQ.58) THEN
       SSCSZ=SIZE(C00058)
      ELSE IF(CSNO.EQ.59) THEN
       SSCSZ=SIZE(C00059)
      ELSE IF(CSNO.EQ.60) THEN
       SSCSZ=SIZE(C00060)
      ELSE IF(CSNO.EQ.61) THEN
       SSCSZ=SIZE(C00061)
      END IF
      RETURN
15000 CONTINUE
      CALL PERET(SUBNAM)
      RETURN
15300 CONTINUE
      CALL GPPGER(0,ERRMES)
      GOTO 15500
15500 CONTINUE
      CALL PERETM(SUBNAM,ERRMES)
      RETURN
      END FUNCTION SSCSZ
      END MODULE employv2kp_c2
